home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed50.d64 / quel temps (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  16KB  |  435 lines
  1. 200 REM ***** VARIABLE LIST *****
  2. 210 REM **** BOARD HEADER ****
  3. 220 REM PP,Q,HI,LO,I:USE UNKNOWN
  4. 230 REM **** PROGRAM ****
  5. 240 REM *** SPRITES
  6. 250 REM V:MAIN LOCATION FOR POKES
  7. 260 REM D:READ IN SPRITE MOVE ML
  8. 270 REM ** MOTION
  9. 280 REM Y:Y POSN
  10. 290 REM XX:X POSN/FOR-NEXT
  11. 300 REM XY:Y POSN/FOR-NEXT
  12. 310 REM XZ:FOR-NEXT
  13. 320 REM SM:SPRITE MOVE SYS LOCATION
  14. 330 REM *** SCREEN ***
  15. 340 REM SP$:BLANK LINE
  16. 350 REM SC$:BLANK LINE
  17. 360 REM C:SKY POKE COLOUR
  18. 370 REM C$:GROUND PRINT COLOUR
  19. 380 REM T$,T1$:TREE PRINT COLOURS
  20. 390 REM WP:SNOW/RAIN PLOTTER
  21. 400 REM *** GENERAL ***
  22. 410 REM ** FLAGS **
  23. 420 REM F1,F2:GENERAL USE
  24. 430 REM FL:RIGHT/WRONG1,2,3
  25. 440 REM ** MISC. **
  26. 450 REM X:MAIN FOR-NEXT
  27. 460 REM HA:HELP ASKED FOR .. TIMES
  28. 470 REM AA$:GENERAL GET
  29. 480 REM GU$:STUDENT ANSWER
  30. 490 REM WE:ROUTINE NUMBER
  31. 500 REM WE$:REPEAT WEATHER CHECK
  32. 510 REM WE$(7,3):WEATHER STORAGE
  33. 520 REM    ,1:FRENCH SENTENCE
  34. 530 REM    ,2:SKY POKE COLOUR
  35. 540 REM    ,3:GROUND PRINT COLOUR
  36. 550 REM ***** END VAR LIST *****
  37. 2000 GOTO63000:REM SCREEN MOVE
  38. 2005 RESTORE:GOSUB10000:GOSUB63240:GOSUB11000:GOSUB40000:REM LOADS/TITLE/INSTR
  39. 2010 F1=0:FORX=1TO7:FL=0
  40. 2020 WE=INT(RND(1)*7+1):FORXX=1TOLEN(WE$)
  41. 2025 IFRIGHT$(STR$(WE),1)=MID$(WE$,XX,1)THEN2020
  42. 2030 NEXTXX:WE$=WE$+STR$(WE)
  43. 2040 GOSUB3000:REM MAIN SCREEN
  44. 2050 ON WE GOSUB 31500,32000,33000,33500,34000,35000,33700:REM WEATHER ROUTS
  45. 2060 GOSUB 36000:REM INPUT
  46. 2070 IF GU$=WE$(WE,1)THENGOSUB39000:GOTO2090:REM RIGHT ROUT
  47. 2080 GOSUB38000:IFFL=0THENGOTO2090
  48. 2085 GOTO2060
  49. 2090 POKE53281,0:PRINT"[147]":POKEV+21,0:POKEV+16,0:POKEV+28,0:FL=0:F2=0:F1=0
  50. 2100 POKEV+23,0:POKEV+29,0:NEXTX
  51. 2110 GOTO5000
  52. 3000 C$=WE$(WE,3):T1$="":T$="[149]":IFC$="[152]"THENT$="[151]":T1$="[151]"
  53. 3010 A$="[209]UESTION "+STR$(X):PRINT"[147]";SC$:PRINTTAB(14)"[145]";A$
  54. 3020 PRINTSP$:PRINTSP$:C=VAL(WE$(WE,2)):POKE53281,C
  55. 3030 PRINT"         [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]        [157][148] "
  56. 3040 PRINT"        ";SPC(24);"       [157][148] "
  57. 3050 PRINT"        [146] "T1$"[162]";SPC(22);"       [157][148] "
  58. 3060 PRINT"       [146] "T1$"[161] [146][161]";SPC(22);"      [157][148] "
  59. 3070 PRINT"      [146]  "T1$"   ";SPC(23);"     [157][148] "
  60. 3080 PRINT"     [146]  "T1$"[161]   [146][161]";SPC(23);"    [157][148] "
  61. 3090 PRINT"     [146]  "T1$"     ";SPC(23);"    [157][148] "
  62. 3100 PRINT"      [146]"T1$"[161]     [146][161]";SPC(21);"     [157][148] "
  63. 3110 PRINT"       ";C$;"  ";T$;" ";C$;MID$(SP$,2,23);"      [157][148] "
  64. 3120 PRINT"        ";C$;" ";T$;" ";C$;MID$(SP$,2,22);"       [157][148] "
  65. 3130 PRINT"        ";C$;MID$(SP$,2,24)"       [157][148] "
  66. 3140 PRINT"        ";C$;MID$(SP$,2,24)"       [157][148] "
  67. 3150 PRINT"         ";C$;MID$(SP$,2,22)"        [157][148] "
  68. 3160 PRINT"         ";C$;MID$(SP$,2,22)"        [157][148] "
  69. 3170 PRINT"         ";C$;MID$(SP$,2,22)"        [157][148] "
  70. 3180 PRINT"[151]";SP$:PRINTSP$:PRINT"[144]";SP$:PRINTSP$:PRINTSP$:PRINTSP$:PRINTSP$;""
  71. 3190 RETURN
  72. 4000 GOTO4100:PRINTDN$;"[144]";SC$:PRINTSC$:PRINTSC$;DN$;TAB(18);"[200][197][204][208]":HA=HA+1
  73. 4010 PRINTTAB(1);"";WE$(1,1);"  ";WE$(2,1);"  ";WE$(3,1)
  74. 4020 PRINTTAB(1);"";WE$(4,1);" ";WE$(5,1)
  75. 4030 PRINTTAB(1);"";WE$(6,1);"  ";WE$(7,1)
  76. 4040 PRINTTAB(6);"[208]RESS SPACE BAR TO CONTINUE.":POKE198,0
  77. 4050 GETAA$:IFAA$=" "THENGOSUB38200:RETURN
  78. 4060 GOTO4050:GOSUB38200
  79. 4100 HA=PEEK(V+21):POKEV+21,0:PRINT"[147]":POKE53281,0:PRINTTAB(18);"[200][197][204][208]"
  80. 4110 PRINT:PRINT"[154]":FORXX=1TO7:PRINTTAB(7);WE$(XX,1):PRINT:NEXTXX
  81. 4120 PRINTDN$;"";TAB(6)"[208]RESS SPACE BAR TO CONTINUE.":POKE198,0
  82. 4130 GETAA$:IFAA$<>" "THEN4130
  83. 4140 GOSUB3000:POKEV+21,HA:RETURN
  84. 5000 POKE53280,0:POKE53281,0:PRINT"[147][154]";TAB(16)"[210][197][211][213][204][212][211]":PRINTTAB(16)"[183][183][183][183][183][183][183]"
  85. 5010 PRINT"";TAB(3);"[206]UMBER OF QUESTIONS:[153]";TAB(33);SC(1)+SC(2)+SC(3)
  86. 5020 PRINT:PRINTTAB(3)"[154][206]UMBER CORRECT FIRST TIME:[153]";TAB(33);SC(1)
  87. 5030 REM PRINT:PRINTTAB(3)"[154][206]UMBER CORRECT SECOND TIME:[153]";TAB(33);SC(2)
  88. 5040 PRINT:PRINTTAB(3)"[154][208]ERCENT CORRECT FIRST TIME:[153]";
  89. 5045 XX$=STR$(INT(SC(1)/7*100)):PRINTTAB(35-LEN(XX$));XX$;"%"
  90. 5050 PRINT:PRINTTAB(3)"[154][206]UMBER INCORRECT:[153]";TAB(33);SC(3)+SC(2)
  91. 5060 PRINT
  92. 5070 FORXX=1TO1000:NEXTXX
  93. 5080 POKE198,0:PRINT:PRINT:PRINT" [154][196]O YOU WANT TO TRY AGAIN? ([153][217][154]ES/[153][206][154]O)"
  94. 5090 GETAA$:IFAA$<>"Y"ANDAA$<>"N"THEN5090
  95. 5100 IFAA$="Y"THENRUN
  96. 5110 PRINT"[147][210]ETURNING TO THE DISK MENU. "
  97. 5120 LOAD"MENU",8
  98. 5130 RUN
  99. 5140 END
  100. 5199 :
  101. 9000 IFF1=1THENWE=1
  102. 9005 IFWE=6THEN9080
  103. 9007 IFWE<>1ANDWE<>2ANDWE<>6THENRETURN
  104. 9010 WP=INT(RND(1)*620+32768):IFPEEK(WP)<32ORPEEK(WP)>42THEN9010
  105. 9020 IFPEEK(WP)=39ORPEEK(WP)=42THENPOKEWP,32
  106. 9030 IFWE=1THENPOKEWP,39:POKEWP+22528,6:GOTO9050
  107. 9040 POKEWP,42:POKEWP+22528,1
  108. 9050 IFPEEK(WP-39)=39ORPEEK(WP-39)=42THENPOKEWP-39,32
  109. 9060 IFPEEK(WP+39)=39ORPEEK(WP+39)=42THENPOKEWP+39,32
  110. 9070 RETURN
  111. 9080 POKE33784,132+INT(RND(1)*2)*11:POKE33786,128+INT(RND(1)*2)*14
  112. 9090 TS=TI+10:GOSUB11260:RETURN
  113. 10000 POKE53269,0:PRINTCHR$(142):POKE53271,0:POKE53277,0
  114. 10005 PRINTCHR$(8):WE$(1,1)="[201]L PLEUT.":WE$(1,2)="15":WE$(1,3)="[153]"
  115. 10010 WE$(2,1)="[201]L NEIGE.":WE$(2,2)="15":WE$(2,3)=""
  116. 10020 WE$(3,1)="[201]L FAIT FROID.":WE$(3,2)="3":WE$(3,3)=""
  117. 10030 WE$(4,1)="[201]L FAIT CHAUD.":WE$(4,2)="3":WE$(4,3)="[153]"
  118. 10040 WE$(5,1)="[201]L FAIT DU BROUILLARD.":WE$(5,2)="12":WE$(5,3)="[152]"
  119. 10050 WE$(6,1)="[201]L FAIT DU VENT.":WE$(6,2)="3":WE$(6,3)="[153]"
  120. 10060 WE$(7,1)="[201]L FAIT DU SOLEIL.":WE$(7,2)="3":WE$(7,3)="[153]"
  121. 10070 DN$="":FORXX=1TO20:DN$=DN$+"":NEXTXX:SM=828:V=53248
  122. 10080 SP$="":FORXX=1TO39:SP$=SP$+" ":NEXTXX:SP$=SP$+"[157][148] [146]"
  123. 10085 SC$=""+CHR$(20)+CHR$(20)+CHR$(20)+SP$
  124. 10090 FORXX=0TO15:FORXY=0TO62:READXZ:POKE40960+64*XX+XY,XZ:NEXTXY,XX
  125. 10950 REM SYS828 - SPRITE MOVE
  126. 10955 FORXX=0TO80:READD:POKE828+XX,D:NEXTXX:RETURN
  127. 11000 SP$="":FORX=1TO39:SP$=SP$+" ":NEXTX:SP$=SP$+"[157][148] ":V=53248
  128. 11010 POKE53280,0:POKE53281,14:PRINTCHR$(142);CHR$(8)
  129. 11020 PRINT"[147][144]    [213][192][201] [174] [176] [176][192] [174]   [192][178][192] [176][192] [176] [174] [176][192][201][213][192][201]"
  130. 11030 PRINT"    [221] [221] [194] [194] [171]  [194]    [194]  [171]  [194]V[194] [171][192][203][202][192][201]"
  131. 11040 PRINT"    [202][192][205] [202][192][203] [173][192] [173][192]   [177]  [173][192] [189] [173] [189]  [202][192][203]"
  132. 11050 PRINT:PRINT"        [176][192] [213][192][201] [178] [192][178][192]    [178] [174]  [213][192][201]"
  133. 11060 PRINT"        [171]  [171][192][179] [194]  [194]  [192][192] [194] [194]   [213][203]"
  134. 11070 PRINT"        [189]  [189] [173] [177]  [177]     [177] [173][192]  .[153]"
  135. 11080 PRINT:PRINT:PRINT:PRINT"[153]":FORX=1TO10:PRINTSP$:NEXTX:PRINTSP$""
  136. 11090 POKE33784,131:POKEV+39,7:POKEV,0:POKEV+1,75:POKE53275,1:POKEV+21,1
  137. 11100 POKEV+16,0:POKEV+23,0:POKEV+29,0:POKEV+28,0:Y=PEEK(V+1)
  138. 11110 FORXZ=0TO200:XY=INT(XZ/15):IFXZ>180THENXY=24-XY:
  139. 11120 SYS828,0,XZ,Y-XY:TS=TI+1
  140. 11130 GOSUB11260:NEXTXZ
  141. 11140 TS=TI+30:GOSUB11260:POKE53281,12:POKEV+21,0
  142. 11145 F1=1:FORXY=1TO50:GOSUB9000:NEXTXY
  143. 11150 POKEV+37,10:POKEV+39,6:POKEV+38,2:POKEV+21,0:POKEV+16,0:POKEV+40,0
  144. 11155 POKEV+23,0:POKEV+29,4:POKEV+41,6:POKEV,0:POKEV+1,139
  145. 11160 POKEV+2,0:POKEV+3,160:POKEV+4,3:POKEV+5,128:POKE53275,0
  146. 11170 POKE33784,132:POKE33785,138:POKE33786,129:POKEV+21,7:POKEV+28,7
  147. 11180 FORXZ=0TO345STEP10:FORXY=0TO9STEP3:SYSSM,0,XZ+XY,139:SYSSM,1,XZ+XY,160
  148. 11190 SYSSM,2,XZ+3+XY,128:POKE33785,138+XY/3:TS=TI+2:GOSUB11260
  149. 11200 NEXTXY:NEXTXZ:POKEV+21,0:POKEV+16,0:RETURN
  150. 11250 FORXY=0TO2:NEXTXY:RETURN
  151. 11260 IFTS>TITHEN11260
  152. 11270 RETURN
  153. 31500 REM RAIN ROUTINE
  154. 31510 POKEV+37,10:POKEV+39,6:POKEV+38,7:POKEV+28,7:POKEV+40,0:POKEV+41,6
  155. 31520 POKE33784,132:POKE33785,138:POKE33786,129:POKEV,88:POKEV+2,88
  156. 31530 POKEV+4,90:POKEV+1,120:POKEV+3,141:POKEV+5,109:POKEV+23,0:POKEV+29,4
  157. 31540 POKEV+21,7:FORXX=1TO25:GOSUB9000:NEXTXX
  158. 31550 FORXX=88TO228STEP10:FORXY=0TO9STEP3:GOSUB9000
  159. 31560 SYSSM,0,XX+XY,120:SYSSM,1,XX+XY,141:SYSSM,2,XX+XY+2,109
  160. 31570 POKE33785,138+XY/3:NEXTXY,XX:RETURN
  161. 32000 REM SNOW ROUTINE
  162. 32010 POKEV+37,10:POKEV+39,12:POKEV+38,11:POKEV+28,3:POKEV+29,0:POKEV+23,0
  163. 32020 POKE33784,132:POKE33785,138:POKE33786,130:POKEV+40,0:POKEV+41,12
  164. 32025 POKEV+21,7:POKEV,88:POKEV+2,88
  165. 32030 POKEV+4,195:POKEV+1,120:POKEV+3,141:POKEV+5,117
  166. 32060 FORXX=88TO228STEP10:FORXY=0TO9STEP3:GOSUB9000:SYSSM,0,XX+XY,120
  167. 32070 SYSSM,1,XX+XY,141:POKE33785,138+XY/3:NEXTXY,XX:RETURN
  168. 33000 REM COLD
  169. 33010 POKEV+37,1:POKEV+39,2:POKEV+38,0:POKEV+23,0:POKEV+29,0:POKEV+28,3
  170. 33020 POKE33784,134:POKE33785,135:POKEV,255:POKEV+2,255:POKEV+1,161:POKEV+3,182
  171. 33030 POKEV+40,2:POKEV+21,3:RETURN
  172. 33500 REM HOT
  173. 33510 POKEV+37,1:POKEV+39,2:POKEV+38,0:POKEV+23,0:POKEV+29,0:POKEV+28,3
  174. 33520 POKE33784,136:POKE33785,137:POKEV,255:POKEV+2,255:POKEV+1,161:POKEV+3,182
  175. 33530 POKEV+40,2:POKEV+21,3:RETURN
  176. 33700 REM SUNNY
  177. 33710 POKEV+39,7:POKEV+28,0:POKEV+23,0:POKEV+29,0:POKE33784,131
  178. 33720 POKEV,114:POKEV+1,79:POKEV+21,1:RETURN
  179. 34000 REM FOGGY
  180. 34010 POKEV+37,11:POKEV+39,11:POKEV+38,11:POKEV+23,0:POKEV+29,0:POKEV+28,3
  181. 34020 POKE33784,132:POKE33785,138:POKEV,88:POKEV+2,88:POKEV+1,120:POKEV+3,141
  182. 34030 POKEV+21,3:POKEV+40,11
  183. 34040 FORXX=88TO248STEP10:FORXY=0TO9STEP3:SYSSM,0,XX+XY,120:SYSSM,1,XX+XY,141
  184. 34050 POKE33785,138+XY/3:TS=TI+1:GOSUB11260:NEXTXY,XX:RETURN
  185. 35000 POKEV+23,0:POKEV+29,0:REM WIND
  186. 35005 POKEV+37,10:POKEV+38,2:POKEV+39,6:POKEV+40,0:POKEV+41,6
  187. 35010 POKE33784,132:POKE33785,138:POKE33786,128:POKEV,121:POKEV+2,121
  188. 35020 POKEV+4,240:POKEV+1,120:POKEV+3,141:POKEV+5,80:POKEV+28,7:POKEV+21,7
  189. 35030 FORXX=1TO25:POKE33784,132+INT(RND(1)*2)*11
  190. 35035 POKE33786,128+INT(RND(1)*2)*14
  191. 35060 TS=TI+INT(RND(1)*7+9):GOSUB11260
  192. 35070 NEXTXX:RETURN
  193. 36000 GU$="":PRINTDN$;"[144]   [209]UEL TEMPS FAIT-IL?";TAB(32)"F1=[200]ELP":POKE198,0
  194. 36010 PRINT:PRINT"?";
  195. 36020 GETAA$:IFAA$=""THENGOSUB9000:GOTO36020:REM SNOWER ROUTINE
  196. 36030 IFAA$=CHR$(133)THENGOSUB4000:GOTO36000:REM HELP
  197. 36040 IF LEN(GU$)=0THEN36100
  198. 36060 IFAA$=CHR$(13)THENPRINT"[157][144] ":RETURN
  199. 36070 IFAA$=CHR$(20)THENPRINT"[157][157][146]? [157]";:GU$=LEFT$(GU$,LEN(GU$)-1):GOTO36020
  200. 36080 IFLEN(GU$)>=25 THEN36020
  201. 36090 IFAA$="."ORAA$=" "ORAA$="[201]"THEN36130
  202. 36100 IFAA$="[201]"THEN36130
  203. 36110 IFASC(AA$)<65ORASC(AA$)>140THEN36020
  204. 36120 IFASC(AA$)>90ANDASC(AA$)<97THEN36020
  205. 36130 PRINT"[157][144]"AA$"[146]?";:GU$=GU$+AA$:GOTO36020
  206. 38000 IFFL=2THENFL=0:GOTO38100
  207. 38005 PRINTDN$"[145][145]";TAB(13);"[206]O. [212]RY AGAIN.":TS=TI+160:GOSUB11260
  208. 38010 IFFL=0THENFL=1:GOSUB4000:HA=HA-1:GOSUB38200:RETURN
  209. 38020 IFFL=1THENFL=2:GOSUB4000:HA=HA-1:PRINTDN$;"[144]";SC$
  210. 38030 GOSUB38200:PRINTDN$;"[145]"
  211. 38040 PRINTTAB(3);"[196]ON'T FORGET TO PUNCTUATE AND"
  212. 38050 PRINTTAB(3);"CAPITALIZE THE SENTENCE."
  213. 38060 PRINTTAB(6)"[208]RESS SPACE BAR TO CONTINUE.";:POKE198,0
  214. 38070 GETAA$:IFAA$=" "THENGOSUB38200:RETURN
  215. 38080 GOTO38070
  216. 38100 GOSUB38200:PRINTDN$;"[145][145]";TAB(6)"[206]O, THAT IS STILL NOT RIGHT."
  217. 38110 PRINTTAB(6);"[200]ERE IS THE CORRECT ANSWER: [144]"
  218. 38120 PRINTSC$:PRINTSC$:PRINTSC$:PRINTSC$;DN$""
  219. 38130 PRINTTAB(5)"";WE$(WE,1):SC(3)=SC(3)+1
  220. 38140 PRINT:PRINTTAB(6)"[208]RESS SPACE BAR TO CONTINUE.";:POKE198,0
  221. 38150 GETAA$:IFAA$=" "THENRETURN
  222. 38160 GOTO38150
  223. 38200 PRINTDN$"[145][145][151]";SC$:PRINTSC$;"[144]":PRINTSC$:PRINTSC$:PRINTSC$:PRINTSC$
  224. 38210 PRINTSC$;DN$:RETURN
  225. 39000 IFFL=0THENGOTO39100
  226. 39020 FORXX=0TO9
  227. 39030 PRINT"";TAB(15);"[195]'EST C[157]'[145]A!":TS=TI+15:GOSUB11260
  228. 39040 PRINT"";TAB(15);"[195]'EST C[157]'[145]A!":TS=TI+15:GOSUB11260
  229. 39050 NEXTXX:SC(2)=SC(2)+1
  230. 39060 PRINTDN$;"";TAB(6);"[144][208]RESS SPACE BAR TO CONTINUE.":POKE198,0
  231. 39070 GETAA$:IFAA$=" "THENRETURN
  232. 39080 GOTO39070
  233. 39100 GC$(0)="[198]ANTASTIQUE!":GC$(1)="[198]ORMIDABLE!":GC$(2)="[197]XCELLENT!"
  234. 39110 XZ=INT(RND(1)*3):SC(1)=SC(1)+1:FORXX=0TO9
  235. 39120 PRINT"";TAB(14);GC$(XZ):TS=TI+15:GOSUB11260
  236. 39130 PRINT"[158]";TAB(14);GC$(XZ):TS=TI+15:GOSUB11260
  237. 39140 PRINT"";TAB(14);GC$(XZ):TS=TI+15:GOSUB11260:NEXTXX
  238. 39150 PRINTDN$;"";TAB(6);"[144][208]RESS SPACE BAR TO CONTINUE.":POKE198,0
  239. 39160 GETAA$:IFAA$=" "THENRETURN
  240. 39170 GOTO39160
  241. 40000 REM INSTRUCTIONS
  242. 40010 PRINT"[147][154]";CHR$(14);:POKE53280,0:POKE53281,0
  243. 40020 PRINTTAB(14);"[201][206][211][212][210][213][195][212][201][207][206][211]":PRINTTAB(14);"[183][183][183][183][183][183][183][183][183][183][183][183]":PRINT:PRINT
  244. 40030 PRINTTAB(2);"[201]N THIS PROGRAM YOU WILL SEE A SCENE":PRINT
  245. 40040 PRINTTAB(2);"SHOWING A WEATHER CONDITION. [217]OU":PRINT
  246. 40050 PRINTTAB(2);"HAVE TO TYPE IN THE KIND OF WEATHER":PRINT
  247. 40060 PRINTTAB(2);"THE SCENE SHOWS. [217]OU MUST USE":PRINT
  248. 40070 PRINTTAB(2);"CORRECT PUNCTUATION AND CAPITALIZE":PRINT
  249. 40080 PRINTTAB(2);"THE FIRST LETTER IN THE SENTENCE.":PRINT
  250. 40090 PRINTTAB(2);"[210]EMEMBER TO PRESS [210][197][212][213][210][206] AFTER":PRINT
  251. 40100 PRINTTAB(2);"YOU TYPE IN YOUR ANSWER."
  252. 40110 PRINTDN$"";TAB(6);"[159][208]RESS SPACE BAR TO CONTINUE.":POKE198,0
  253. 40120 GETAA$:IFAA$<>" "THEN40120
  254. 40130 PRINT"[147][153]";TAB(15);"[204][197][211][160][212][197][205][208][211]":PRINTTAB(15);"[163][163][163][163][163][163][163][163][163][154]"
  255. 40140 PRINT:PRINT:FORXX=1TO7:PRINTTAB(2);WE$(XX,1):PRINT:NEXTXX
  256. 40150 PRINT"[153]";TAB(14);"[194][207][206][206][197][160][195][200][193][206][195][197]!"
  257. 40160 PRINTDN$;"";TAB(6);"[159][208]RESS SPACE BAR TO CONTINUE.":POKE198,0
  258. 40170 GETAA$:IFAA$=" "THENRETURN
  259. 40180 GOTO40170
  260. 40190 REM --   BY DAVE DIXON   --
  261. 40195 REM --PROGRAMMER AT LARGE--
  262. 50000 REM SPRITE DATA -- KITE
  263. 50010 DATA0,0,2,0,0,10,0,0,38
  264. 50020 DATA0,0,150,0,2,86,0,9,86
  265. 50030 DATA0,9,86,0,11,254,0,11,248
  266. 50040 DATA0,11,224,0,11,128,0,10,0
  267. 50050 DATA0,136,0,0,32,0,0,40,0
  268. 50060 DATA0,32,0,2,32,0,0,128,0
  269. 50070 DATA34,32,0,8,0,0,162,0,0
  270. 50080 REM SPRITE DATA -- UMBRELLA
  271. 50090 DATA0,0,0,0,0,0,2,170,128
  272. 50100 DATA11,170,224,46,233,184,185,190,110
  273. 50110 DATA185,190,110,185,190,110,185,190,110
  274. 50120 DATA185,190,110,34,40,136,0,8,0
  275. 50130 DATA0,8,0,0,8,0,0,8,0
  276. 50140 DATA0,8,0,0,136,0,0,40,0
  277. 50150 DATA0,0,0,0,0,0,0,0,0
  278. 50160 REM SPRITE DATA -- SNOWMAN
  279. 50170 DATA0,60,0,0,60,0,0,255,0
  280. 50180 DATA0,66,0,0,165,0,0,129,0
  281. 50190 DATA0,189,0,0,66,0,0,60,0
  282. 50200 DATA0,195,0,1,24,128,2,24,64
  283. 50210 DATA4,0,32,4,0,32,4,24,32
  284. 50220 DATA4,24,32,4,0,32,4,24,32
  285. 50230 DATA4,24,32,2,0,64,1,255,128
  286. 50240 REM SPRITE DATA -- SUN
  287. 50250 DATA0,0,0,0,0,0,0,0,0
  288. 50260 DATA0,66,0,4,66,64,0,36,128
  289. 50270 DATA1,255,0,51,255,136,15,255,240
  290. 50280 DATA7,255,192,55,255,192,15,255,224
  291. 50290 DATA11,255,152,17,255,0,2,40,128
  292. 50300 DATA4,68,64,0,68,0,0,0,0
  293. 50310 DATA0,0,0,0,0,0,0,0,0
  294. 50320 REM SPRITE DATA -- GIRL TOP
  295. 50330 DATA0,0,0,3,255,0,15,217,0
  296. 50340 DATA15,100,0,15,84,0,13,85,0
  297. 50350 DATA61,84,5,63,84,5,3,80,41
  298. 50360 DATA2,128,170,2,170,168,2,170,160
  299. 50370 DATA10,170,128,10,170,128,10,170,0
  300. 50380 DATA10,170,0,10,170,0,10,170,0
  301. 50390 DATA10,170,0,10,170,0,10,170,0
  302. 50400 REM SPRITE DATA -- GIRL BOTTOM
  303. 50410 DATA10,170,0,15,255,0,15,255,0
  304. 50420 DATA15,255,0,15,255,0,15,255,0
  305. 50430 DATA15,15,0,15,15,0,15,15,0
  306. 50440 DATA15,15,0,15,15,0,15,15,0
  307. 50450 DATA15,15,0,15,15,0,15,15,0
  308. 50460 DATA15,15,0,10,138,128,10,138,128
  309. 50470 DATA0,0,0,0,0,0,0,0,0
  310. 50480 REM SPRITE DATA -- THERM COLD TOP
  311. 50490 DATA0,0,0,255,255,255,255,213,87
  312. 50500 DATA213,213,87,213,247,95,213,247,119
  313. 50510 DATA223,255,119,213,215,119,213,215,95
  314. 50520 DATA213,213,87,213,213,87,213,223,95
  315. 50530 DATA213,215,119,223,215,119,213,221,119
  316. 50540 DATA213,223,95,213,213,87,213,213,87
  317. 50550 DATA213,215,87,213,221,215,223,221,215
  318. 50560 REM SPRITE DATA -- THERM COLD BOT
  319. 50570 DATA213,221,215,213,215,87,213,213,87
  320. 50580 DATA213,213,87,234,223,95,234,215,119
  321. 50590 DATA239,215,119,234,221,119,234,223,95
  322. 50600 DATA234,213,87,234,213,87,255,213,87
  323. 50610 DATA255,255,255,0,0,0,0,0,0
  324. 50620 DATA0,0,0,0,0,0,0,0,0
  325. 50630 DATA0,0,0,0,0,0,0,0,0
  326. 50640 REM SPRITE DATA -- THERM HOT TOP
  327. 50650 DATA0,0,0,255,255,255,255,213,87
  328. 50660 DATA213,213,87,213,247,95,213,247,119
  329. 50670 DATA223,255,119,213,215,119,213,215,95
  330. 50680 DATA234,213,87,234,213,87,234,223,95
  331. 50690 DATA234,215,119,239,215,119,234,221,119
  332. 50700 DATA234,223,95,234,213,87,234,213,87
  333. 50710 DATA234,215,87,234,221,215,239,221,215
  334. 50720 REM SPRITE DATA -- THERM HOT BOT
  335. 50730 DATA234,221,215,234,215,87,234,213,87
  336. 50740 DATA234,213,87,234,223,95,234,215,119
  337. 50750 DATA239,247,119,234,221,119,234,223,95
  338. 50760 DATA234,213,87,234,213,87,255,213,87
  339. 50770 DATA255,255,255,0,0,0,0,0,0
  340. 50780 DATA0,0,0,0,0,0,0,0,0
  341. 50790 DATA0,0,0,0,0,0,0,0,0
  342. 50800 REM GIRL BOT 1
  343. 50810 DATA10,170,0,15,255,0,15,255,0,15,255,0,3,252,0,0,252,0
  344. 50820 DATA0,252,0,0,252,0,0,252,0,0,252,0,0,252,0,0,252,0
  345. 50830 DATA0,252,0,0,252,0,0,252,0,0,252,0,0,85,0,0,85,0,0,0,0,0,0,0,0,0,0
  346. 50840 REM DIR BOT 2
  347. 50850 DATA10,170,0,15,255,0,15,255,0,15,255,0,15,255,0,15,255,0
  348. 50860 DATA15,207,192,15,207,192,15,207,192,15,195,240,15,195,240,15,195,240
  349. 50870 DATA15,195,240,15,195,240,15,192,252,15,192,252,5,80,85,5,80,85
  350. 50880 DATA 0,0,0,0,0,0,0,0,0
  351. 50890 REM GIRL BOT 3
  352. 50900 DATA10,170,0,15,255,0,15,255,0,15,255,0,15,255,0,15,255,0
  353. 50910 DATA15,207,192,15,207,192,15,207,192,15,195,240,63,3,240,63,3,240
  354. 50920 DATA63,3,240,63,3,240,252,0,252,252,0,252,85,0,85,85,0,85
  355. 50930 DATA0,0,0,0,0,0,0,0,0
  356. 50940 REM GIRL BOT 4
  357. 50950 DATA10,170,0,15,255,0,15,255,0,15,255,0,15,255,0,15,255,0
  358. 50960 DATA15,207,192,15,207,192,15,207,192,15,207,192,63,15,192,63,15,192
  359. 50970 DATA63,15,192,63,15,192,252,15,192,252,15,192,85,5,80,85,5,80
  360. 50980 DATA0,0,0,0,0,0,0,0,0
  361. 50990 REM THE OTHER KITE
  362. 51000 DATA0,0,0,0,0,0,0,0,0
  363. 51010 DATA0,0,0,0,0,8,0,0,40
  364. 51020 DATA0,0,152,0,2,88,0,9,88
  365. 51030 DATA0,9,88,0,9,88,0,11,248
  366. 51040 DATA0,11,224,0,11,128,8,138,0
  367. 51050 DATA34,168,0,32,128,0,40,0,0
  368. 51060 DATA160,0,0,32,0,0,128,0,0
  369. 51070 REM GIRL WIND TOP
  370. 51080 DATA0,60,0,63,252,0,207,212,0
  371. 51090 DATA63,100,0,255,84,0,13,85,0
  372. 51100 DATA61,84,5,253,84,5,1,80,41
  373. 51110 DATA2,128,170,2,170,168,2,170,160
  374. 51120 DATA10,170,128,10,170,128,10,170,0
  375. 51130 DATA10,170,0,10,170,0,10,170,0
  376. 51140 DATA10,170,0,10,170,0,10,170,0
  377. 51150 REM SYS828 - SPRITE MOVE DATA
  378. 51160 DATA32,14,226,32,158,173,32,247,183,165,20,41
  379. 51170 DATA7,133,252,10,133,251,32,14,226,32,158,173
  380. 51180 DATA32,247,183,165,20,166,251,157,0,208,169,0
  381. 51190 DATA166,252,56,42,202,224,255,208,250,164,21,208
  382. 51200 DATA8,73,255,45,16,208,24,144,3,13,16,208
  383. 51210 DATA141,16,208,32,14,226,32,158,173,32,247,183
  384. 51220 DATA165,20,166,251,232,157,0,208,96
  385. 63000 REM >>>  LONDON BOARD OF EDUCATION               HEADER
  386. 63001 REM >>>
  387. 63002 CLR:POKE51,0:POKE55,0
  388. 63003 POKE52,128:POKE56,128:CLR:POKE53272,PEEK(53272)AND15:POKE648,128
  389. 63004 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1
  390. 63005 POKE53272,5:POKE53280,12:POKE53281,12:PRINT"[147][144]"
  391. 63006 DEFFNPP(Q)=PEEK(Q)+256*PEEK(Q+1):DEFFNHI(Q)=INT(Q/256):DEFFNLO(Q)=Q-256*FNHI(Q)
  392. 63008 Y=FNPP(FNPP(61)+1)-1:POKE65,FNLO(Y):POKE66,FNHI(Y)
  393. 63010 PRINT"[147]    [223]"
  394. 63020 PRINT"   "
  395. 63030 PRINT" [146][172][162][162][172][172][172][162][187][172][146][162][162][172][172]   [182][146][172][162][162][162][187][172][162][162][172][162][187]";
  396. 63040 PRINT" [161][161][161][146][191][161][161][161][161][161][161][146][191][161]  [161][161][161][146][162][190][161][146][162][190][161][161]";
  397. 63050 PRINT"    [161][146][162][190][161][187][161][146][162][191][161][146][162][190][161][187]   [146][169][161][146][162][190][161][161][161][146][191][161][146][162][191]";
  398. 63060 PRINT:PRINT
  399. 63070 PRINT"    [157][157][157][157] "
  400. 63080 PRINT"[172][187]   [146][172][162][187][172][172][172][162][162][162][187][172][162][162][172][172][162][162][172][172]";
  401. 63090 PRINT"[162][187][190][146][187] [161][161][161][161][161][161][146][162][190][161][161][161][161][161][146][191][161]";
  402. 63100 PRINT"[188][146][161][161]    [161][146][162][191][161][146][162][190][161][146][162][162][161][161][161][161][161][146][162][190][161][187]"
  403. 63180 PRINT"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  404. 63185 PRINT"          QUEL TEMPS FAIT-IL?[144]      "
  405. 63190 PRINT"     [175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  406. 63195 PRINT"          ALL RIGHTS RESERVED."
  407. 63200 PRINT"     UN MOMENT S.V.P":GOTO2005
  408. 63240 PRINT"[152]"SP$:V=53248
  409. 63250 POKEV+21,0:POKEV+28,0
  410. 63260 POKEV+29,4:POKEV+23,0:POKEV+16,0
  411. 63300 FORI=0TO2:POKE33784+I,16+I:NEXT
  412. 63400 SP=33792
  413. 63410 FOR I=0TO64*6-1:POKESP+I,0:NEXT
  414. 63420 FORI=24TO60:READX:POKESP+I,X:NEXT
  415. 63430 FORI=26TO62:READX:POKESP+64+I,X:NEXT
  416. 63440 FORI=46TO58:READX:POKESP+128+I,X:NEXT
  417. 63450 FORI=13TO61:READX:POKESP+192+I,X:NEXT
  418. 63460 FORI=54TO61:READX:POKESP+256+I,X:NEXT
  419. 63470 POKEV+39,13:POKEV+40,13:POKEV+41,0
  420. 63475 POKEV,56:POKEV+2,29:POKEV+4,32
  421. 63480 POKEV+1,105:POKEV+3,105:POKEV+5,109
  422. 63485 POKEV+21,4:FORI=1TO1100:NEXT
  423. 63490 POKE33786,19:POKEV+21,5:FORI=1TO950:NEXT
  424. 63495 POKE33786,20:POKEV+21,7:FORI=1TO2000:NEXT
  425. 63500 DATA 3,0,0,6,0,0,6,0,0,12,0,0,12,3,128,24,14,0,24,56,0,48,224,0,51,128,0
  426. 63510 DATA 110,1,240,120,63,0,247,224,0,252
  427. 63520 DATA 192,0,0,96,0,0,96,0,0,48,1,192,48,0,112,24,0,28,24,0,7,12,0,1,204
  428. 63530 DATA 15,128,118,0,252,30,0,7,239,0,0,63
  429. 63540 DATA 14,0,0,17,254,0,16,0,0,17,254,0,14
  430. 63550 DATA 32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0,0,32,0
  431. 63560 DATA 0,32,0,0,32,0,0,32,0,0,64,0,0,65,254,0,102,0,0,60
  432. 63570 DATA 255,1,254,0,198,0,0,124
  433. 63700 PRINT"[147][144]";:RESTORE:POKE53269,0:RETURN
  434. 63710 REM WHC 93:10:27
  435.